home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / ScriptX Platforms / Win31 / loadable / qtplayer / qtplayer.sx < prev   
Encoding:
Text File  |  1996-05-21  |  790 b   |  34 lines  |  [TEXT/LMAN]
  1. <<<
  2. global movieDir  := theStartDir
  3. global movieFile := undefined
  4.  
  5. if (isThere thestartdir "audio-video/Suckomatic Flat") then
  6. (
  7.     movieFile := "audio-video/Suckomatic Flat"
  8. )
  9. else
  10. if (isThere thestartdir "audi-vid/suckoflt.mov") then
  11. (
  12.     movieFile := "audi-vid/suckoflt.mov"
  13. )
  14. else
  15. (
  16.     local thePanel := new OpenPanel
  17.     openFilePanel thePanel
  18.     movieFile := thePanel.filename
  19.     movieDir := theRootDir
  20. )
  21.  
  22. global qtplayer := new QuickTimePlayer dir:movieDir filename:movieFile
  23. global tpBounds := qtplayer.boundary.bbox
  24. global spc := new window bbox:(new rect x1:40 y1:40 \
  25.                                                x2:((tpBounds.width) + 40) \
  26.                                                y2:((tpBounds.height) + 40))
  27. show spc
  28. spc.fill := blackBrush
  29. spc.clock.scale := 30
  30.  
  31. append  spc qtplayer
  32. playPrepare qtplayer 1.0
  33. >>>
  34.